home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / util / cli / BaseConv_37_1.lha / BaseConv / Math32.a < prev    next >
Encoding:
Text File  |  1994-12-26  |  335 b   |  28 lines
  1.  
  2.     SECTION    text,code
  3.  
  4.     XDEF    @UMul32
  5.     XDEF    @UMod32
  6.     XDEF    @UDiv32
  7.  
  8.     XREF    _UtilityBase
  9.  
  10.  
  11. UMult32        EQU -$0090 ; (arg1,arg2)(D0/D1)
  12. UDivMod32    EQU -$009C ; (dividend,divisor)(D0/D1)
  13.  
  14.  
  15. UDiv
  16. @UDiv32    MOVEA.L    _UtilityBase(A4),A0
  17.     JMP    UDivMod32(A0)
  18.  
  19. @UMod32    BSR    UDiv
  20.     MOVE.L    D1,D0
  21.     RTS
  22.  
  23. @UMul32    MOVEA.L    _UtilityBase(A4),A0
  24.     JMP    UMult32(A0)
  25.  
  26.     END
  27.  
  28.